home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / kreator.txt < prev    next >
Text File  |  1994-03-01  |  827b  |  27 lines
  1. 1 X=16:Y=1:CLS:'*** OISAC 2 *** KREATOR ***
  2. 2 FOR F=1TO3:PRINT CSR15"+-+-+";CHR$(13);
  3. 3 PRINT CSR15 CHR$(124);" ";CHR$(124);" "CHR$(124);CHR$(13);:NEXT
  4. 5 PRINT CSR15"+-+-+-";CHR$(11);
  5. 6 LOCATE 15,1:PRINT CHR$(124);
  6. 7 'Gestion clavier
  7. 10 K=ASC(INPUT$(1))
  8. 20 IF K=28;X=X+1:PRINT CHR$(28);
  9. 30 IF K=29;X=X-1:PRINT CHR$(29);
  10. 40 IF K=30;Y=Y-1:PRINT CHR$(30);
  11. 50 IF K=31;Y=Y+1:PRINT CHR$(31);
  12. 55 IF K=13ORK=8THEN 100
  13. 60 IF K=81THEN 200
  14. 70 IF K=78THEN 1
  15. 80 PRINT CHR$(0);:GOTO 10
  16. 90 'Gestion de l'affichage
  17. 100 R=X+32*Y:IF K=13;POKER,135 ELSE POKE R,32
  18. 150 PRINT CHR$(0);:GOTO 10
  19. 160 'Calcul du code du caractére
  20. 200 CO=32:RESTORE240
  21. 210 FOR F=1TO6
  22. 220 READ A,B
  23. 230 IF PEEK A=135;CO=CO+B
  24. 235 NEXT
  25. 240 DATA 48,1,50,2,112,4,114,8,176,16,178,64
  26. 270 LOCATE1,0:PRINT "CODE";CO;"[";CHR$(CO);"]";
  27. 280 X=16:Y=1:GOTO 6